C------------------------------------- RADIATION LOSS OF AIR -----HOT
      DATA (SSUBR(N,3),N=1,50)
     & /0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,
     &  0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,
     &  0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,
     &  0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,
     &  0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,
     &  0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,
     &  0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,
     &  0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,
     &  0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,
     &  0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/
      DATA (SSUBR(N,3),N=51,100)
     & /0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,
     &  0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,
     &  0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,
     &  0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,
     &  0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,
     &  0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,
     &  0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,
     &  0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,
     &  0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,
     &  0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/
      DATA (SSUBR(N,3),N=101,150)
     & /0.0000D+00, 1.5000D+09, 3.0000D+09, 4.5000D+09, 6.0000D+09,
     &  7.5000D+09, 9.0000D+09, 1.0500D+10, 1.2000D+10, 1.3500D+10,
     &  1.5000D+10, 1.6500D+10, 1.8000D+10, 1.9500D+10, 2.1000D+10,
     &  2.2500D+10, 2.4000D+10, 2.5500D+10, 2.7000D+10, 2.8500D+10,
     &  3.0000D+10, 3.2000D+10, 3.4000D+10, 3.6000D+10, 3.8000D+10,
     &  4.0000D+10, 4.2000D+10, 4.4000D+10, 4.6000D+10, 4.8000D+10,
     &  5.0000D+10, 5.2000D+10, 5.4000D+10, 5.6000D+10, 5.8000D+10,
     &  6.0000D+10, 6.2000D+10, 6.4000D+10, 6.6000D+10, 6.8000D+10,
     &  7.0000D+10, 7.3500D+10, 7.7000D+10, 8.0500D+10, 8.4000D+10,
     &  8.7500D+10, 9.1000D+10, 9.4500D+10, 9.8000D+10, 1.0150D+11/
      DATA (SSUBR(N,3),N=151,201)
     & /1.0500D+11, 1.0850D+11, 1.1200D+11, 1.1550D+11, 1.1900D+11,
     &  1.2250D+11, 1.2600D+11, 1.2950D+11, 1.3300D+11, 1.3650D+11,
     &  1.4000D+11, 1.4000D+11, 1.4000D+11, 1.4000D+11, 1.4000D+11,
     &  1.4000D+11, 1.4000D+11, 1.4000D+11, 1.4000D+11, 1.4000D+11,
     &  1.4000D+11, 1.4000D+11, 1.4000D+11, 1.4000D+11, 1.4000D+11,
     &  1.4000D+11, 1.4000D+11, 1.4000D+11, 1.4000D+11, 1.4000D+11,
     &  1.4000D+11, 1.4000D+11, 1.4000D+11, 1.4000D+11, 1.4000D+11,
     &  1.4000D+11, 1.4000D+11, 1.4000D+11, 1.4000D+11, 1.4000D+11,
     &  1.4000D+11, 1.4000D+11, 1.4000D+11, 1.4000D+11, 1.4000D+11,
     &  1.4000D+11, 1.4000D+11, 1.4000D+11, 1.4000D+11, 1.4000D+11,
     &  1.4000D+11/
